home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…Business) - New Member 21 / Software of the Month Club XXI - New Member Business.ISO / mac / Business / Financial Portfolio v4.1 ƒ / Financial Portfolio v4.1 / Financial Portfolio v4.1.rsrc / LENS_223_Inspect Import.bin < prev    next >
Text File  |  1995-11-23  |  2KB  |  71 lines
  1. ItemType: WIND
  2. Rect: 170,249,440,455
  3. AutoSize: FALSE
  4. Style: Dialog
  5. HasTitleBar: TRUE
  6. HasZoomBox: FALSE
  7. Name: Inspect Import
  8. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue┬┬if objValue="Open" then ┬  get wsGet(wdID,"list","Text")┬  wsSet wdID,"storer","Text",it -- store for revert, if needed┬  get the number of lines of it┬  put it&&"items available to import" into tt┬  wsSet wdID,"Note","Text",tt┬end if┬┬--end windowEvent
  9. Params: i4_Text┬i0_TopLeft┬i9_Visible
  10. Result: i4_Text
  11.  
  12. ItemType: PUSH
  13. Rect: 184,176,256,196
  14. Name: OK
  15. DefaultItem: TRUE
  16. AutoClose: TRUE
  17.  
  18. ItemType: PUSH
  19. Rect: 85,176,165,196
  20. Name: Cancel
  21. CancelItem: TRUE
  22. AutoClose: TRUE
  23.  
  24. ItemType: TEXT
  25. Rect: 18,3,258,33
  26. TextFont: Geneva
  27. TextSize: 10
  28. AutoSize: FALSE
  29. Name: Title
  30. Text: Click on an item you wish to exclude from the import process:
  31.  
  32. ItemType: LIST
  33. Rect: 19,32,247,152
  34. TextFont: Geneva
  35. TextSize: 10
  36. AutoSize: FALSE
  37. Name: list
  38. Logic: Single
  39. Text: 
  40. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬wsSet wdID,"list","TextOfSelection", ""┬get wsGet(wdID,"list","Text")┬get the number of lines of it┬put it&&"items available to import" into tt┬wsSet wdID,"Note","Text",tt┬--end mouseUp
  41.  
  42. ItemType: LINE
  43. Rect: 158,15,193,17
  44. PenSize: 1,2
  45.  
  46. ItemType: PUSH
  47. Rect: 6,176,66,196
  48. AutoSize: FALSE
  49. Name: Revert
  50. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"storer","Text")┬wsSet wdID,"list","Text",it┬get the number of lines of it┬put it&&"items available to import" into tt┬wsSet wdID,"Note","Text",tt┬--end mouseUp
  51.  
  52. ItemType: LIST
  53. Rect: 64,56,163,106
  54. TextFont: Geneva
  55. Visible: FALSE
  56. Name: storer
  57. Text: 
  58.  
  59. ItemType: TEXT
  60. Rect: 19,154,145,166
  61. TextFont: Geneva
  62. TextSize: 9
  63. Name: Note
  64. Text: 0 items available to import
  65.  
  66. ItemType: TEXT
  67. Rect: 164,154,261,166
  68. TextFont: Geneva
  69. TextSize: 9
  70. Name: Note3
  71. Text: í=in multi-item card